home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / EDITACC.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  2.5 KB  |  95 lines
  1. ****************************** (Jay Kenney 01/25/86)
  2. ****************************** (EDITACC.PRG)
  3. SET BELL OFF
  4. SET EXACT ON
  5. SET TALK OFF
  6. SET HEADING OFF
  7. SET SAFETY OFF
  8. CLEAR
  9. USE CUST
  10. SET CONFIRM ON
  11. DO WHILE .T.
  12.    CLEA
  13.    @ 10,22 SAY 'Do you want to edit a customer?'
  14.    ?
  15.    ?
  16.    STORE ' ' TO OPTION
  17.    WAIT '                                    ? ' TO OPTION
  18.    IF OPTION='N'
  19.       CLEA
  20.       RETURN
  21.    ENDIF
  22.    CLEAR
  23.    IF OPTION='Y'
  24.       STORE ' ' TO QUES
  25.       @ 10,9 SAY 'Edit by C)ompany name, A)ddress, P)hone, or N (Acct. number)? '
  26.       ?
  27.       ?
  28.       WAIT '                               C,A,P or N ? ' TO QUES
  29.       IF QUES='C'
  30.          STORE '                                         ' TO BCO
  31.          CLEA
  32.          @ 10,1 SAY 'Enter company name (or string) ' GET BCO
  33.          ? [(String can be anywhere in company name.)]
  34.          READ
  35.          STORE TRIM(BCO) TO BCO
  36.          CLEA
  37.          SET EXACT OFF
  38.          LOCA FOR BCO $ NAME
  39.          SET FORMAT TO CUSTEDIT.FMT
  40.          SET CONFIRM ON
  41.          EDIT
  42.          CLOSE FORMAT CUSTEDIT.FMT
  43.       ENDIF
  44.       IF QUES='N'
  45.          STORE '    ' TO ACTNO
  46.          CLEA
  47.          @ 10,1 SAY 'Enter account number (or string) ' GET ACTNO
  48.          ? [(String can be anywhere in account number.)]
  49.          READ
  50.          STORE TRIM(ACTNO) TO ACTNO
  51.          CLEA
  52.          SET EXACT OFF
  53.          LOCA FOR ACTNO $ ACCT
  54.          SET FORMAT TO CUSTEDIT.FMT
  55.          SET CONFIRM ON
  56.          EDIT
  57.          CLOSE FORMAT CUSTEDIT.FMT
  58.       ENDIF
  59.       IF QUES='P'
  60.          STORE '               ' TO PCO
  61.          CLEA
  62.          @ 10,1 SAY 'Enter phone number (or string) ' GET PCO
  63.          ? [(String can be anywhere in phone.)]
  64.          READ
  65.          STORE TRIM(PCO) TO PCO
  66.          CLEA
  67.          SET EXACT OFF
  68.          LOCA FOR PCO $ PHONE
  69.          SET FORMAT TO CUSTEDIT.FMT
  70.          SET CONFIRM ON
  71.          EDIT
  72.          CLOSE FORMAT CUSTEDIT.FMT
  73.       ENDIF
  74.       IF QUES='A'
  75.          STORE '                                        ' TO XCO
  76.          CLEA
  77.          @ 10,1 SAY  'Enter address (or string) ' GET XCO
  78.          ? [(String can be anywhere in address.)]
  79.          READ
  80.          STORE TRIM(XCO) TO XCO
  81.          CLEA
  82.          SET EXACT OFF
  83.          LOCA FOR XCO $ UPPER(ADDRESS)
  84.          SET FORMAT TO CUSTEDIT.FMT
  85.          SET CONFIRM ON
  86.          EDIT
  87.          CLOSE FORMAT CUSTEDIT.FMT
  88.       ENDIF
  89.       CLEAR
  90.       SET CONFIRM OFF
  91.    ENDIF
  92. ENDIF
  93. ENDDO
  94. RETURN
  95.